home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / ITEDO IsoDraw-I / ITEDO IsoDraw Demo PPC I / ITEDO IsoDraw Demo PPC I.rsrc / STR#_504.txt < prev    next >
Encoding:
Text File  |  1994-01-18  |  611 b   |  61 lines
  1. %%BeginProcSet: Adobe_packedarray 1.0 0
  2. % packedarray Operators
  3. % Version 1.0 5/9/1988
  4.  
  5.  
  6. % Copyright (C) 1987-1990
  7. % Adobe Systems Incorporated
  8. % All Rights Reserved
  9.  
  10.  
  11. userdict /Adobe_packedarray 5 dict dup begin put
  12. /initialize
  13. {
  14. /packedarray where
  15.     {
  16.  
  17.  
  18.     pop
  19.     }
  20.     {
  21.     Adobe_packedarray begin
  22.     Adobe_packedarray
  23.         {
  24.  
  25.  
  26.         dup xcheck
  27.             {
  28.             bind
  29.             } if
  30.         userdict 3 1 roll put
  31.  
  32.  
  33.         } forall
  34.     end
  35.     } ifelse
  36. } def
  37. /terminate
  38. {
  39. } def
  40. /packedarray
  41. {
  42.  
  43.  
  44. array astore readonly
  45. } def
  46. /setpacking
  47. {
  48. pop
  49. } def
  50. /currentpacking
  51. {
  52. false
  53. } def
  54.  
  55.  
  56. currentdict readonly pop end
  57. %%EndProcSet
  58. Adobe_packedarray /initialize get exec
  59.  
  60.  
  61.